home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / TouchMe 1.1.1.sit / touchMe 1.11 Folder / scripts / sample 1 next >
Text File  |  1996-08-08  |  577b  |  19 lines
  1. -- Sample AppleScripts for touchMe, 1996 (C) Mizutori Tetsuya
  2. -- A droplet to change the creation date to the date "8/1/96", 
  3. -- and the modification date according to the first dropped file
  4. -- To get a droplet, execute "Save As Run-Only..." command.
  5.  
  6. tell me to open {(choose file)}
  7.  
  8. on open (docList)
  9.     tell application "touchMe"
  10.         activate
  11.         --set theDate to current date
  12.         set theDate to date "8/1/96 12:10"
  13.         set prefs creation to {enabled:true, flag:exact, value:theDate}
  14.         set prefs modification to {enabled:true, flag:firstone}
  15.         touch docList
  16.         quit
  17.     end tell
  18. end open
  19.